home *** CD-ROM | disk | FTP | other *** search
/ AGA Toolkit '97 / The AGA Toolkit '97.iso / text / misc / port / string / strnumcat.s < prev    next >
Encoding:
Text File  |  1996-09-07  |  378 b   |  26 lines
  1.  
  2.     XDEF    StrNumCat
  3.  
  4.     XREF    NumToStr
  5.     XREF    StrEnd
  6.     XREF    StrCpy
  7.  
  8. ; StrNumCat() - Adds a number in the end of the string buffer.
  9. ; Args:
  10. ; D0 = The 32-bit number to add.
  11. ; A0 = Pointer to the string after which to add the number.
  12.  
  13. StrNumCat:
  14.     move.l    a0,-(sp)
  15.     lea    .NumBuf,a0
  16.     bsr.w    NumToStr
  17.     move.l    a0,a1
  18.     move.l    (sp)+,a0
  19.     bsr.w    StrEnd
  20.     bsr.w    StrCpy
  21.     rts
  22.  
  23. .NumBuf:
  24.     ds.b    11
  25.     CNOP    0,4
  26.